Amiga Tools 5/Amiga Tools 5.iso/tools/boot-tools/bootselector1.40/install

Text File | 1996-03-30 | 11KB | 369 lines

;
; $VER: BootSelector Install 2.04 (30/03/96)
;
; Copyright (c) 1995 Michael Gollmick.
;
;-----------------------------------------------------
;
; English texts
;

(set #InstallVersion    "BootSelector Install-Script 2.04")

(IF (= @LANGUAGE "english")
(
(set speech 0)

(SET #bad-kick        "BootSelector requires at least Kickstart 2.04 !")

(set #choose-docdest    "Please choose a path for the documentation file.")
(set #choose-docdest-help " The documentation-file contains the same information as the Amiga-Guide file, but in normal ASCII-format.\n The destination path is should be the same as that one, you usually store your documentations to.")
(set #choose-guidedest    "Please choose a path for the AmigaGuide documentation file.")
(set #choose-guidedest-help " The Amiga-Guide documentation is a file in Hypertext-format, which may be viewed with MultiView or AmigaGuide.\n The destination path should be the same as that one you usually store your AmigaGuide files to. Usually this is HELP:")

(set #select-mainf    "\n\nDo you want to install BootSelector 1.40?")
(set #help-mainf    (cat " The main BootSelector file is required to choose between Startup-Sequences. This file is usually placed into the \"C:\" drawer, where it will be found easy.\n\n\n" @copyfiles-help))

(set #SelectMain    "Please choose the Processor, you are using in this machine.\n")
(set #SelectMainHelp    " The Amiga-Models were shipped with different processors. If you don't know what processor is inside this machine, choose the MC 68000-version - it will work on every processor.\n")

(set #SelectStartup    "Please choose all the Startup-Sequences you want to install.\n\n")
(set #SelectStartupHelp    " BootSelector needs alternative Startup-Sequences for its work. This alternative Startup-Sequences should be installed into the S:Startup's directory. If you use an older version of BootSelector, you may have alternative Startup-Sequences with same names already and you do not wish to copy all that scripts. Please choose for that reason the needet alternative scripts.\n The Installer-Script makes a savety-clone of your original Startup-Sequence, for loosing no data in an eventual mailfunktion of the script.")

(set #choose-guide    "Please choose the language you want for the Amiga-Guide documentation.")
(set #choose-guide-help " The Amiga-Guide documentation is a file in Hypertext-format, which may be viewed with MultiView or AmigaGuide.")

(set #choose-doc    "Please choose the language you want for the documentation file\n")
(set #choose-doc-help    " The documentation-file contains the same information as the Amiga-Guide file, but in normal ASCII-format.")

(set #support-me    (cat "This is MAILWARE.\n\nIf you use this Program regulary, you have to send me a Mail.  Thank you.\n\n"))
(set #ready        "BootSelector is now installed correctly. You can reset your machine for testing.")

))

;=============================================================================
; german strings

(if (= @language "deutsch")
(

(set speech 1)

(SET #bad-kick        "BootSelector benötigt mindestens Kickstart 2.04 !")

(set #choose-docdest    "Bitte wählen Sie einen Zielpfad für die Dokumentationsdatei.")
(set #choose-docdest-help " Die Dokumentationsdatei enthält dieselben Informationen wie die Amiga-Guide-Dokumentation, aber im normalen ASCII-Format.\n Der Zielpfad sollte der Pfad sein, in dem Sie normalerweise auch Ihre Anleitungen aufbewahren.")
(set #choose-guidedest    "Bitte wählen Sie einen Zielpfad für die Amiga-Guide-Dokumentation.")
(set #choose-guidedest-help " Die Amiga-Guide Dokumentation ist eine Datei im Hypertext-Format, die mit MultiView oder AmigaGuide angezeigt werden kann.\n Der Zielpfad sollte der Pfad sein, in dem sie normalerweise auch Ihre AmigaGuide-Dateien aufbewahren. Normalerweise ist das das Verzeichnis Help:")

(set #select-mainf    "\n\nMöchten Sie BootSelector 1.40 installieren?")
(set #help-mainf    (cat " Das Hauptprogramm von BootSelector wird dazu benötigt, zwischen den verschiedenen Startup-Sequencen zu wählen. Dieses Programm sollte normalerwise im \"C:\" Verzeichnis Ihres Systems stehen, damit es leicht gefunden werden kann.\n\n" @copyfiles-help))

(set #SelectMain    "Bitte wählen sie den Prozessor, der in Ihrem Amiga eingebaut ist.\n")
(set #SelectMainHelp    " Die Amiga Modelle werden mit verschiedenen Prozessoren gebaut. Wenn Sie nicht wissen, welcher Prozessor in Ihrem Amiga steckt, dann wählen sie einfach den MC68000 - er kann von jedem höheren Prozessor emuliert werden.\n")

(set #SelectStartup    "Bitte wählen Sie alle Startup-Sequencen, die sie installiert haben möchten.\n\n")
(set #SelectStartupHelp    " BootSelector benötigt alternative Startup-Sequencen, um zu funktionieren. Diese alternativen Scripte sollten im Verzeichnis S:Startup's stehen. Wenn Sie schon eine ältere Version von BootSelector benutzen, dann möchten Sie vielleicht nicht alle Startup-Sequencen kopieren. Bitte wählen Sie aus diesem Grund die benötigten alternativ-Scripte aus.\n Das Installer-Script macht eine Sicherheitskopie von Ihrer original-Startup-Sequence, damit bei einer eventuellen Fehlfunktion keine Daten verloren gehen.")

(set #choose-guide    "Bitte wählen Sie eine Sprache für die Amiga-Guide Dokumentation.")
(set #choose-guide-help " Die Amiga-Guide Dokumentation ist eine Datei im Hypertext-Format, die mit MultiView oder AmigaGuide angezeigt werden kann.")

(set #choose-doc    "Bitte wählen Sie die Sprache für die Dokumentationsdatei.")
(set #choose-doc-help    " Die Dokumentationsdatei enthält dieselben Informationen wie die Amiga-Guide-Dokumentation, aber im normalen ASCII-Format.")

(set #support-me    (cat "Dies ist MAILWARE.\n\nWenn Sie dieses Programm regelmäßig benutzen, sollten Sie mir eine Mail zukommen lassen.\nVielen Dank.\n\n"))
(set #ready        "BootSelector ist jetzt komplett installiert. Sie können Ihren Rechner zurücksetzen um zu testen.")

))
;=============================================================================
;
;****************************************************************************
;
; Setup
;

(if (< (/ (getversion) 65536) 37)
    (abort #bad-kick)
)

(set startup-dest "S:Startup's")

(complete 0)


;****************************************************************************
;
; Welcome
;

(complete 5)

(welcome)

(message "\nBootSelector\n Version 1.40 \n\nCopyright © 1995/1996 "
     "Michael Gollmick,\nAll Rights Reserved.\n\n\n"
         #InstallVersion
)

(complete 10)

(SET doc-dest
    (ASKDIR
        (PROMPT #choose-docdest)
        (HELP #choose-docdest-help)
        (DEFAULT "HELP:")
    )
)
(SET guide-dest
    (ASKDIR
        (PROMPT #choose-guidedest)
        (HELP #choose-guidedest-help)
        (DEFAULT doc-dest)
    )
)

;****************************************************************************
;
; Install Main Program
;

; Get Processor Information
(SET mainfile
    (ASKCHOICE
        (PROMPT #SelectMain)
        (HELP #SelectMainHelp)
        (CHOICES
            "MC 68000, MC 68010"
            "MC 68020, MC 68030 (EC020/EC030)"
            "MC 68040, MC 68060 (EC040/LC040,EC060)"
        )
        (DEFAULT 0)
    )
)
(IF (= mainfile 0)
    (COPYFILES
        (SOURCE "C/BootSelector.000")
        (DEST "C:")
                (newname "BootSelector")
                (infos)
    )
)
(IF (= mainfile 1)
    (COPYFILES
        (SOURCE "C/BootSelector.020")
        (DEST "C:")
                (newname "BootSelector")
                (infos)
    )
)
(IF (= mainfile 2)
    (COPYFILES
        (SOURCE "C/BootSelector.040")
        (DEST "C:")
                (newname "BootSelector")
                (infos)
    )
)


(complete 20)

;****************************************************************************
;
; Install Startup-Sequences
;

(copyfiles
       (prompt #mainf)
       (help   #mainf)
       (source "S:Startup-Sequence")
       (dest   "S:")
       (newname "Startup-Sequence_saveclone")
)

(complete 30)

(IF (= (EXISTS "S:Startup's/Startup-SequenceI") 1)
    (copyfiles
           (source "S:Startup's/Startup-SequenceI")
           (dest   startup-dest)
               (newname "Startup-SequenceI_saveclone")
        )
)

(complete 35)

; Get startup information
(set startupchen (askoptions
               (prompt #Selectstartup)
               (choices "Startup-SequenceI" "Startup-SequenceII" "Startup-SequenceIII" "Startup-SequenceIV" "Startup-SequenceV" "Startup-SequenceVI")
               (help #SelectStartupHelp)
               (default 0)
             )
)

(complete 40)

(if startupchen
   (
      (if (IN startupchen 0)
         (
            (copyfiles
               (source "S:Startup-Sequence")
               (dest   startup-dest)
               (newname "Startup-SequenceI")
            )

    (complete 45)

        (copyfiles
               (source "S/Startup-Sequence")
               (dest   "S:")
        )


         )
      )


(complete 50)

      (if (IN startupchen 1)
         (
            (copyfiles
               (source "S/Startup-SequenceII")
               (dest   startup-dest)
            )
         )
      )

(complete 55)

      (if (IN startupchen 2)
         (
            (copyfiles
               (source "S/Startup-SequenceIII")
               (dest   startup-dest)
            )
         )
      )

(complete 60)

      (if (IN startupchen 3)
         (
            (copyfiles
               (source "S/Startup-SequenceIV")
               (dest   startup-dest)
            )
         )
      )

(complete 65)

      (if (IN startupchen 4)
         (
            (copyfiles
               (source "S/Startup-SequenceV")
               (dest   startup-dest)
            )
         )
      )

(complete 70)

      (if (IN startupchen 5)
         (
            (copyfiles
               (source "S/Startup-SequenceVI")
               (dest   startup-dest)
            )
         )
      )

  )
)

(complete 75)

;****************************************************************************
;
; Choose Guide
;

(SET guide
    (ASKCHOICE
        (PROMPT #choose-guide)
        (HELP #choose-guide-help)
        (CHOICES
            "English"
            "Deutsch"
        )
        (DEFAULT speech)
    )
)
(IF (= guide 0)
    (COPYFILES
        (SOURCE "DOC/BootSelector_engl.GUIDE")
        (DEST guide-dest)
                (newname "BootSelector.GUIDE")
                (infos)
    )
)
(IF (= guide 1)
    (COPYFILES
        (SOURCE "DOC/BootSelector_deu.GUIDE")
        (DEST guide-dest)
                (newname "BootSelector.GUIDE")
                (infos)
    )
)

(complete 80)

;****************************************************************************
;
; Choose Documentation
;

(SET guide
    (ASKCHOICE
        (PROMPT #choose-doc)
        (HELP #choose-doc-help)
        (CHOICES
            "English"
            "Deutsch"
        )
        (DEFAULT speech)
    )
)
(IF (= guide 0)
    (COPYFILES
        (SOURCE "DOC/BootSelector_engl.DOC")
        (DEST doc-dest)
                (newname "BootSelector.DOC")
                (infos)
    )
)
(IF (= guide 1)
    (COPYFILES
        (SOURCE "DOC/BootSelector_deu.DOK")
        (DEST doc-dest)
                (newname "BootSelector.DOK")
                (infos)
    )
)

(complete 90)

;****************************************************************************
;
; Exit
;

    (complete 99)
    (MESSAGE #support-me #ready)
    (complete 100)

(EXIT (QUIET))